home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_A.d64
/
reader's survey
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
312 lines
1 rem *********************************
2 rem * *
3 rem * pgm title : reader's survey *
4 rem * pgm author: dave hammond *
5 rem * *
6 rem * (c)1986 viking technologies *
7 rem * (c)1986 uptime magazine *
8 rem * *
9 rem *********************************
10 :
15 if x=0 then x=1: load "0:lptr rtn",8,1
16 :
20 print chr$(8)chr$(14)
30 uptime=(8*4096)+4: de=186
40 poke53280,0: poke53281,0
95 :
100 gosub 1000: rem *** screen template ***
110 gosub 1500: rem *** screen #1 ***
115 :
120 get k$: if k$="" then 120
130 if k$=chr$(140) then 550
140 if k$<>chr$(13) then 120
195 :
200 gosub 1600: rem *** screen #2 ***
205 :
210 get k$: if k$="" then 210
220 if k$=chr$(140) then 550
230 if k$<>chr$(13) then 210
295 :
300 gosub 1700: rem *** screen #3 ***
305 :
310 get k$: if k$="" then 310
320 if k$=chr$(140) then 550
330 if k$<>chr$(13) then 310
395 :
400 gosub 1800: rem *** screen #4 ***
405 :
410 ml=23: gosub 5000: rem *** get kbd input ***
415 :
420 n$=t$: if t$="" then n$="an anonymous source"
425 :
430 gosub 1900: rem *** screen #4 con't ***
435 :
440 get k$: if k$="" then 440
450 if k$=chr$(140) then 550
460 if k$<>chr$(13) then 440
465 :
500 er=0: gosub 2000: rem *** output to printer ***
505 if er=1 then goto 600
506 :
510 gosub 3000: rem *** screen #5 ***
515 :
520 get k$: if k$="" then 520
530 if k$=chr$(140) then 550
540 if k$<>chr$(13) then 520
545 :
550 poke de,8: sys uptime
595 :
596 rem ***************
597 rem printer error
598 rem ***************
599 :
600 gosub 1400: rem *** clear text area ***
605 :
610 printspc(6)" [150] [212]here is a printer error [155]"
620 printspc(6)"[210]echeck all of your printer"
630 printspc(5)"connections and the printer's"
640 printspc(6)"paper supply and try again."
645 :
650 get k$: if k$="" then 650
660 if k$=chr$(140) then 550
670 if k$<>chr$(13) then 650
675 :
680 gosub 1400: rem *** clear text area ***
685 :
690 printspc(16)"[208]rinting"
700 printspc(12)"[210]eader's [211]urvey"
710 goto 500: rem *** retry printer ***
990 end
995 :
996 rem *****************
997 rem screen template
998 rem *****************
999 :
1000 print"[147]";
1010 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1020 bl$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
1030 m1$="[221]": m2$=" [146][221]"
1040 m3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1050 c$="[158]": r$="": printtl$
1060 for x=1to23
1070 printm1$;c$;r$;m2$
1080 if x=5 then x=6: c$="": r$="[146]": printm3$
1090 if x=18 then x=19: c$="": r$="": printm3$
1100 next
1200 printbl$
1210 printspc(10)" [213]p[212]ime [158] [205]agazine's"
1220 printspc(12)"[210]eader's [211]urvey"
1230 for x=1to16: print: next
1240 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
1250 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
1290 return
1395 :
1396 rem *****************
1397 rem clear text area
1398 rem *****************
1399 rem :
1400 print"";
1410 for x=1to12
1420 print"[221] [221]"
1430 next
1440 print"[155]";
1450 return
1495 :
1496 rem ***********
1497 rem screen #1
1498 rem ***********
1499 :
1500 gosub 1400: rem *** clear text area ***
1505 :
1510 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
1520 printspc(2)"is the [159]premiere[155] magazine on a disk"
1530 printspc(7)"for the [195]ommodore 64/128"
1540 printspc(5)"[215]e are constantly working to"
1550 printspc(8)"improve our publication"
1560 printspc(11)"and [217][207][213][155][160]can help!"
1590 return
1595 :
1596 rem ***********
1597 rem screen #2
1598 rem ***********
1599 :
1600 gosub 1400: rem *** clear text area ***
1605 :
1610 printspc(6)"[217]ou can help us stay #1[155] by"
1620 printspc(9)"providing your input:
1630 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
1640 [153][166]4)"atnnything that you feel will help"
1650 [153][166]7)"us meet your expectations"
1660 [153][166]14)"with (NULL)p(NULL)imelist"
1690 [142]
1695 :
1696 [143] ***********
1697 [143] screen #3
1698 [143] ***********
1699 :
1700 [141] 1400: [143] *** clear text area ***
1705 :
1710 [153][166]3)"peeky following the next few prompts"
1720 [153][166]5)"your printer will print out a"
1730 [153][166]5)"reader's survey form for you."
1740 [153][166]4)"(NULL)lease take the time to fill out"
1750 [153][166]3)"the survey and return it using the"
1760 [153][166]4)"enclosed business reply envelope."
1770 [153][166]4)"(NULL)e will use the results of this"
1780 [153][166]5)"survey to determine what it is"
1790 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
1795 :
1796 [143] ***********
1797 [143] screen #4
1798 [143] ***********
1799 :
1800 [141] 1400: [143] *** clear text area ***
1805 :
1810 [153][166]3)"right$f you'd like to include your name"
1820 [153][166]10)"enter it now, please."
1830 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
1840 [153][166]4)"(NULL)ame:tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
1850 [153][166]8)"onon*cmd";
1860 [142]
1895 :
1896 [143] *****************
1897 [143] screen #4 con't
1898 [143] *****************
1899 :
1900 [141] 5200: [143] *** ck for dsywhl ***
1905 [153][166]11)"(NULL)eady your printer"
1910 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
1920 [142]
1995 :
1996 [143] *******************
1997 [143] output to printer
1998 [143] *******************
1999 :
2000 [151]780,4: [151]782,7: [158] 828: [143] *** ml routine to open printer chn ***
2010 [139] [194](783)[175] 1 [167] er[178]1: [137] 2490
2015 :
2020 [152]4,[199](10)
2025 [152]4,""[166]12)"(NULL)eader's (NULL)urvey for the lenommodore 64/128 (NULL)ol. 1 (NULL)o. 5"
2030 [152]4,[199](10)
2040 [152]4," (NULL)his survey is from ";n$;"."
2050 [152]4,[199](0)
2055 [143] l$="tototototo": if dw=1 then l$="......."
2060 [152]4," 1. (NULL)hat sort of advertisements would you want ";
2070 [152]4,"(NULL)p(NULL)ime to"
2072 [152]4," present you with? (lenheck all that apply)"
2075 [152]4,[199](0)
2080 [152]4," [ ] lenomputer (NULL)elated";
2090 [152]4," [ ] (NULL)ther ";
2100 l$[178]"totototototototototototototototo"
2105 [139] dw[178]1 [167] l$[178]"................"
2110 [152]4,l$
2120 [152]4," [ ] (NULL)pecial right$nterests";
2125 [152]4," [ ] (NULL)one
2126 print#4,chr$(0)
2130 print#4," 2. [200]ow would you like to see an ad displayed?"
2135 print#4," ([195]heck all that apply)"
2145 print#4,chr$(0)
2147 print#4," [ ] [211]tatic [211]creen [196]isplay";
2150 print#4," [ ] [205]enu [201]tem"
2155 print#4," [ ] [201]nteractive [196]isplay";
2157 print#4," [ ] [193]utomatically [196]isplayed"
2160 print#4,chr$(0)
2165 print#4," ***********************************";
2167 print#4,"***************************************"
2170 bx$="[ ] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
2172 if dw=1 then bx$="[ ] ....................................."
2175 print#4,chr$(0)
2180 print#4," [208]lease rate the following programs and categories on a"
2190 print#4," scale between 1 and 10 with 10 being the highest."
2195 print#4,chr$(0)
2200 print#4," [209]uad-[204]ink ";bx$
2205 print#4,chr$(0)
2206 print#4," [193]pt. of [205]ystery ";bx$
2207 print#4,chr$(0)
2210 print#4," [195]olor [212]iles ";bx$
2212 print#4,chr$(0)
2214 print#4," [215]ord [205]aster 128 ";bx$
2215 print#4,chr$(0)
2220 print#4," [212]axable [201]ncome ";bx$
2225 print#4,chr$(0)
2230 print#4," [211]upermon+ ";bx$
2235 print#4,chr$(0)
2240 print#4," [212]ext [195]runcher ";bx$
2247 print#4,chr$(0)
2250 print#4," [212]ext [213]ncruncher ";bx$
2255 print#4,chr$(0)
2260 print#4," [212]esar on [212]rack ";bx$
2261 print#4,chr$(0)
2262 print#4," [208]rogramming w/[205][204] ";bx$
2265 print#4,chr$(0)
2266 print#4," [212]he [195][194][205] [211]huffle ";bx$
2267 print#4,chr$(0)
2270 print#4," [194][193][211][201][195] [212]ricks ";bx$
2272 print#4,chr$(0)
2273 print#4," [211]oftware [210]eviews ";bx$
2275 print#4,chr$(0)
2280 print#4," [201]'d rate the issue overall [ ]
2285 [152]4,[199](0)
2287 [152]4,[199](0)
2300 [152]4," atnny other comments or observations you'd care to make:"
2305 [152]4,[199](0)
2310 [152]4," ";l$;l$;l$;l$
2315 [152]4,[199](0)
2320 [152]4," ";l$;l$;l$;l$
2325 [152]4,[199](0)
2330 [152]4,[199](12)
2490 [160]4: [142]
2995 :
2996 [143] ***********
2997 [143] screen #5
2998 [143] ***********
2999 :
3000 [141] 1400: [143] clear text area
3005 :
3010 [153][166]5)"(NULL)hank-you for taking the time"
3020 [153][166]8)"to print out the survey."
3030 [153][166]3)"(NULL)e'll be waiting to hear from you."
3040 [153][166]2)"(NULL)lease send the completed survey to"
3050 [153][166]8)"(NULL)p(NULL)ime, the str$isk (NULL)onthlylist"
3060 [153][166]8)"(NULL)(NULL) peekox 299"
3070 [153][166]8)"(NULL)ewport, (NULL)right$ 02840"
3080 [142]
4995 :
4996 [143] ***********
4997 [143] kbd input
4998 [143] ***********
4999 :
5000 t$[178]"": cs$[178]"*cmd": ct[178]0
5010 [161] k$: [139] k$[178]"" [167] 5010
5020 k[178][198](k$)
5025 [139] k[178]140 [167] 550
5030 [139] k[178]13 [167] 5100
5040 [139] k[179][177]20 [167] 5070
5050 [139] ct[178]0 [167] 5010
5060 ct[178]ct[171]1: [153]" cmdcmd cmd";cs$;: t$[178][200](t$,ct): [137] 5010
5070 [139] ct[178]ml [167] 5010
5080 [139] (k[178]32) [176] (k[178]46) [167] 5085
5082 [139] (k$[177][178]"a") [175] (k$[179][178]"z") [167] 5085
5084 [139] (k$[179]"atn") [176] (k$[177]"(NULL)") [167] 5010
5085 t$[178]t$[170]k$: ct[178]ct[170]1: [153]k$;: [139] ct[179][177]24 [167] [153]cs$;
5090 [137] 5010
5100 [139] t$[178]"" [167] [153]"atnnonymous";
5110 [153]" ": [142]
5195 :
5196 [143] ****************************
5197 [143] ck for daisy wheel printer
5198 [143] ****************************
5199 :
5200 [153][166]9)"listlenan your printer print"
5210 [153][166]5)"lenommodore chr$raphic characters?"
5220 [153][166]15)"sys< (NULL) / (NULL) >list": [153]"ononon";
5230 dw[178]0
5240 [161] k$: [139] k$ [178] "" [167] 5240
5250 [139] (k$[178]"y") [176] (k$[178]"(NULL)") [167] 5280
5255 [139] k$[178][199](140) [167] 550
5260 [139] (k$[179][177]"n") [175] (k$[179][177]"(NULL)") [167] 5240
5270 dw[178]1
5280 [129] x[178]1[164]3: [153]" ": [130]
5285 [153]"onononon";
5290 [142]